function [] = pp_baugh_wooley_tb()
%     A = [1 1 1 1];
%     B = [0 1 0 1];
%     X = [   0     0     0     1     1     0     1
%             0     0     1     1     0     1     0
%             0     1     1     0     1     0     0
%             0     0     1     0     0     0     0];
%     Z = pp_baugh_wooley(A,B);
%     assert2(A,B,Z,X, 1, 32);

%     A = [1 0 1 0];
%     B = [1 1 1 1];
%     X = [   0     0     0     1     0     0     0
%             1     1     0     1     1     1     0
%             0     1     0     0     0     0     0
%             1     0     0     0     0     0     0];
%     Z = pp_baugh_wooley(A,B);
%     assert2(A,B,Z,X, 1, 32);
    
    A = [0 1 0 1];
    B = [0 1 0 1];
    X = [   0   0   0   0   1   1   0   1
            0   0   0   1   0   0   0   0
            0   0   1   1   0   1   0   0
            0   0   1   1   1   0   0   0
            1   0   0   1   0   0   0   0];
    Z = pp_baugh_wooley(A,B);
    assert2(A,B,Z,X, 1, 32);
end
